home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 579 / program / procdure / scroll_t.lst < prev    next >
Encoding:
File List  |  1992-01-26  |  544 b   |  29 lines
  1. PROCEDURE scroll_text(txt$,y%)
  2.   LOCAL xa%,xb%,xc%,xd%,xa$
  3.   xa%=40
  4.   xb%=8
  5.   IF XBIOS(4)
  6.     xa%=80
  7.     IF XBIOS(4)=2
  8.       xb%=16
  9.     ENDIF
  10.   ENDIF
  11.   IF y%>0 AND y%<25
  12.     IF LEN(txt$)<xa%
  13.       txt$=txt$+SPACE$(xa%-LEN(txt$))
  14.     ENDIF
  15.     REPEAT
  16.       INC xc%
  17.       PRINT AT(xa%,y%);MID$(txt$,xc%,1);
  18.       FOR xd%=0 TO 7
  19.         GET 1,y%*xb%-xb%,8*xa%-1,y%*xb%-1,xa$
  20.         VSYNC
  21.         PUT 0,y%*xb%-xb%,xa$
  22.       NEXT xd%
  23.       IF xc%=LEN(txt$)
  24.         xc%=0
  25.       ENDIF
  26.     UNTIL LEN(INKEY$)
  27.   ENDIF
  28. RETURN
  29.